---
title: "Penguins - Basic Dashboard"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(palmerpenguins)
library(ggplot2)
library(dplyr)
```
```{r}
# save data to object
penguin_df <- palmerpenguins::penguins
```
Column {data-width=650}
-----------------------------------------------------------------------
### Penguin Scatterplot
```{r}
ggplot(data = penguin_df, aes(x = flipper_length_mm, y = body_mass_g)) + geom_point(aes(color = species)) +
scale_color_manual(values = c(
"Adelie" = "purple2",
"Chinstrap" = "orange",
"Gentoo" = "cyan4"
)) +
labs(
title = NULL,
x = "Flipper Length (mm)",
y = "Body Mass (g)",
color = "Species"
) +
theme_minimal()
```
Column {data-width=350}
-----------------------------------------------------------------------
### Bill Depth Distribution of Chinstrap
```{r}
penguin_df %>%
filter(species == "Chinstrap") %>%
ggplot(aes(x = bill_depth_mm)) +
geom_histogram(fill = "orange") +
labs(title = NULL,
x = "Bill Depth (mm)",
y = NULL) +
theme_minimal()
```
### Penguin Species on Biscoe Island
```{r}
# subsetted penguins data frame
biscoe_sp <- penguin_df %>%
filter(island == "Biscoe") %>%
group_by(species) %>%
summarize(count = n())
# bar plot
ggplot(data = biscoe_sp, aes(x = species, y = count)) +
geom_col(aes(fill = species)) +
scale_fill_manual(values = c(
"Adelie" = "purple2",
"Gentoo" = "cyan4"
)) +
labs(title = NULL,
x = NULL,
y = "Number of species",
fill = "Species") +
theme_minimal()
```